5 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000
15 POKE214,12:PRINT:PRINTTAB(8)"[158][204]OADING, PLEASE WAIT..."
20 PRINT"[144]POKE43,1:POKE44,16:POKE4096,0"
30 PRINT"LOAD"CHR$(34)"HISTORY"CHR$(34)","DV
40 PRINT"RUN"
50 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
10000 OPEN15,8,15,"S0:HISTORY BOOT":CLOSE15:SAVE"HISTORY BOOT":END
60000 B9$="                                      "
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="[200][201][211][212][207][210][217] [195][200][193][204][204][197][206][199][197] [201][201]
60040 B9$(1)[178]"BY (null)OGER (null)ORTON
60050 B9$(2)="[214]1.0 ([195]) 1991 BY [211]OFTDISK, [201]NC."
60060 B9$(3)="[208]UBLISHED ON [204][207][193][196][211][212][193][210] #89"
60070 B9$(4)="[211]UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)="[193]LL [210]IGHTS [210]ESERVED"
60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT
60099 RETURN